(fset 'sort-numeric-fields #[(field beg end) "└ \n─┼%ç" [sort-fields-1 field beg end #[nil "└ S!ê┬`è├─!ê`){!ç" [sort-skip-fields field string-to-int forward-sexp 1] 4] nil] 6 "\
Sort lines in region numerically by the ARGth field of each line.
Fields are separated by whitespace and numbered from 1 up.
Specified field must contain a number in each line of the region.
With a negative arg, sorts by the -ARG'th field, in decending order.
Called from a program, there are three arguments:
FIELD, BEG and END. BEG and END specify region to sort." "p\nr"])
(fset 'sort-fields #[(field beg end) "└ \n─┼%ç" [sort-fields-1 field beg end #[nil "└ S!ê┬ç" [sort-skip-fields field nil] 2] #[nil "└┴wç" ["^ \n" nil] 2]] 6 "\
Sort lines in region lexicographically by the ARGth field of each line.
Fields are separated by whitespace and numbered from 1 up.
With a negative arg, sorts by the -ARG'th field, in decending order.
Called from a program, there are three arguments:
FIELD, BEG and END. BEG and END specify region to sort." "p\nr"])
(byte-code "└┴Mê┬├Mç" [sort-fields-1 #[(field beg end startkeyfun endkeyfun) "┴W┬ ┼ë[]]╞Äèî}êebê╔\n!ê╦╠═%-ç" [field 0 syntax-table tbl reverse 1 ((set-syntax-table tbl)) beg end set-syntax-table sort-fields-syntax-table sort-subr forward-line end-of-line startkeyfun endkeyfun] 6] sort-skip-fields #[(n) "è└ê`)\nvê` V½î├─è┼yê`) {\"ê╞╟w)ç" [1 eol n error "Line has too few fields: %s" 0 " " nil] 4]] 2)
Sort the region lexicographically as specifed by RECORD-REGEXP and KEY.
RECORD-REGEXP specifies the textual units which should be sorted.
For example, to sort lines RECORD-REGEXP would be \"^.*$\"
KEY specifies the part of each record (ie each match for RECORD-REGEXP)
is to be used for sorting.
If it is \"\\digit\" then the digit'th \"\\(...\\)\" match field from
RECORD-REGEXP is used.
If it is \"\\&\" then the whole record is used.
Otherwise, it is a regular-expression for which to search within the record.
If a match for KEY is not found within a record then that record is ignored.
With a negative prefix arg sorts in reverse order.
For example: to sort lines in the region by the first word on each line
starting with the letter \"f\",
RECORD-REGEXP would be \"^.*$\" and KEY would be \"\\=\\<f\\w*\\>\"" "P\nsRegexp specifying records to sort: \nsRegexp specifying key within record: \nr"])